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-- "last modified by Satterthwaite, August 10, 1977 9:24 AM 

DIRECTORY 

SymboUableDefs: FROM "symboUabledef s" , 
SymDefs: FROM "symdefs"; 

TypePackDefs: DEFINITIONS » 
BEGIN 
OPEN SymDefs; 

SymboUableBase: TYPE » SymboUableDefs. SymbolTableBase; 

SEHandle: TYPE = RECORD[ 
stb: SymbolTableBase, 
sei: SEIndex]; 

TypeHandle: TYPE « RECORD[ 
stb: SymbolTableBase, 
sei: CSEIndex]; 

OwnMdi: MDIndex = FIRST[MDIndex]; 

-- type manipulation 

EquivalentTypes: PROCEDURE [typel, type2: TypeHandle] RETURNS [BOOLEAN]; 
AssignableTypes: PROCEDURE [typeL, typeR: TypeHandle] RETURNS [BOOLEAN]; 

END... 


